home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / game_cga / jetset / ajetcruz.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-03-27  |  17.3 KB  |  80 lines
  1. 1  REM PROGRAM NAME JETSET
  2. 2  REM IFR FLITE SIMULATOR, BOEING 747
  3. 3  REM CREATED 6-28-81 BY GENE SZYMANSKI
  4. 4  REM REVISED 2-28-82
  5. 5  KEY OFF : DEF SEG=&H40 : POKE &H17,PEEK(&H17) OR 96
  6. 8  REM CONVERTED TO IBM PC BASIC ON 10-30-82
  7. 9  GOTO 23
  8. 10  REM PLOTS VARIABLE ON REVERSE BACKGROUND
  9. 11  LOCATE (YP+1),(XP+1): COLOR 0,7 : PRINT "";
  10. 12  PRINT USING F$;V1;
  11. 13  PRINT "": COLOR 7,0
  12. 14  RETURN
  13. 23  REM BEGIN CRUISE MODULE HERE
  14. 24  CLS : RANDOMIZE (VAL(MID$(TIME$,7,2))*10)
  15. 25  DIM M$(20)
  16. 26  KR=57.2958: XQ=64
  17. 27  RS=1 : IF RND(1)=<0.5 THEN RS=-1
  18. 28  RW=(15-5)*RND(1)+5
  19. 29  RW=RS*RW
  20. 30  REM SET UP WIND TABLE
  21. 32  DIM WA(10,1)
  22. 34  FOR I=0 TO 7 : WA(I,0)=INT(359*RND(1)+1) : NEXT I
  23. 36  FOR I=8 TO 10 : WA(I,0)=90*RND(1)+225 : NEXT I
  24. 38  A=0
  25. 40  FOR I=1 TO 10 : WA(I,1)=25*RND(1)+A : A=A+25 : NEXT I
  26. 41  RS$(0)=STRING$(31,"-")
  27. 42  RS$(1)=SPACE$(13)+".   ."+SPACE$(13)
  28. 43  RS$(2)=SPACE$(11)+".       ."
  29. 44  RS$(3)=SPACE$(9)+STRING$(13,"-")
  30. 45  REM VOR STATION FREQS TABLE
  31. 46  DIM VF(15)
  32. 47  VF(0)=115.9 : VF(1)=113.8 : VF(2)=112.7
  33. 48  VF(3)=117.7 : VF(4)=117.8 : VF(5)=112.2
  34. 49  VF(6)=117.4 : VF(7)=115.5 : VF(8)=116.4
  35. 50  VF(9)=113.6 : VF(10)=116.9 : VF(11)=117
  36. 51  VF(12)=112.3 : VF(13)=117.9 : VF(14)=115.7
  37. 52  VF(15)=112.8
  38. 62  REM ILS CONSTANTS FOR AIRPORTS
  39. 63  DIM VG(15,1)
  40. 64  VG(0,0)=238 : VG(0,1)=28
  41. 66  VG(2,0)=240 : VG(2,1)=30
  42. 69  VG(5,0)=90 : VG(5,1)=217
  43. 71  VG(7,0)=299 : VG(7,1)=164
  44. 72  VG(8,0)=166 : VG(8,1)=42
  45. 79  VG(15,0)=341 : VG(15,1)=75
  46. 100  REM VOR STATION COORDINATES TABLE
  47. 101  DIM VP(15,1)
  48. 102  VP(0,0)=40.633 : VP(0,1)=73.773
  49. 103  VP(1,0)=40.202 : VP(1,1)=74.495
  50. 104  VP(2,0)=42.358 : VP(2,1)=70.993
  51. 105  VP(3,0)=41.282 : VP(3,1)=70.027
  52. 106  VP(4,0)=42.743 : VP(4,1)=73.802
  53. 107  VP(5,0)=46.412 : VP(5,1)=84.315
  54. 108  VP(6,0)=38.35 : VP(6,1)=81.77
  55. 109  VP(7,0)=40.917 : VP(7,1)=77.993
  56. 110  VP(8,0)=42.928 : VP(8,1)=78.647
  57. 111  VP(9,0)=41.358 : VP(9,1)=82.162
  58. 112  VP(10,0)=42.967 : VP(10,1)=83.742
  59. 113  VP(11,0)=44.555 : VP(11,1)=88.195
  60. 114  VP(12,0)=41.547 : VP(12,1)=88.318
  61. 115  VP(13,0)=39.495 : VP(13,1)=76.978
  62. 116  VP(14,0)=42.048 : VP(14,1)=83.458
  63. 117  VP(15,0)=39.637 : VP(15,1)=75.303
  64. 155  DATA FUEL,LBS,%,VHF,MHZ,THRUST,MAX,IDLE,REV
  65. 160  DATA PITCH," +"," -",DEG,FLAPS,UP,DWN,WHEELS,UP,MID,DOWN
  66. 165  DATA COMPASS,AIRSPEED,KTS," VERT",SPEED,FPM
  67. 170  DATA ALTITUDE,FEET,CLOCK
  68. 175  DIM P$(28)
  69. 180  FOR I=0 TO 28 : READ P$(I) : NEXT I
  70. 185  DIM S$(25)
  71. 190  FOR I=1 TO 25 : S$(I)=SPACE$(I) : NEXT I
  72. 192  FOR I=0 TO 9 : F(I)=0 : NEXT I
  73. 195  REM INIT FLITE VARIABLES TO STATE AT LIFTOFF
  74. 196  FU=195480:FP=63:CC=75:ZZ=380:RC=6704:AL=1900
  75. 198  MZ=77:TR=4:FL=1:FA=10:BR=10:WH=10
  76. 200  RA=0:ZZ(1)=380:FA(1)=10:CC(1)=75:AL(1)=1900:RP=40
  77. 201  DP(4)=39:DP(5)=52:DP(6)=75:DP(7)=15
  78. 202  L1=39.8667:G1=75.25:LL(1)=L1:GL(1)=G1:LS(1)=L1:GS(1)=G1
  79. 203  VO(1)=0
  80.